Imports System.Data
Imports System.Data.SqlClient

Public Class CDataTable
    Private _RowCount As Long
    Private _Rows As DataRowCollection

    Public Sub New()
    End Sub

    Public Property Rows() As DataRowCollection
        Get
            Return _Rows
        End Get
        Set(ByVal value As DataRowCollection)
            _Rows = value
        End Set
    End Property


    Public Sub SetRows(ByVal DataReader As SqlDataReader)
        Dim intCount As Long = 0

        While DataReader.Read()


        End While
    End Sub







End Class
